home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / T / Think-Pascal-7.0.cpt / THINK Pascal Interfaces / Serial.p < prev    next >
Encoding:
Text File  |  1991-04-03  |  2.0 KB  |  105 lines  |  [TEXT/PJMM]
  1. {    This file has been processed by The THINK Pascal Source Converter, v1.1.    }
  2.  
  3. {
  4. Created: Sunday, January 6, 1991 at 11:15 PM
  5.     Serial.p
  6.     Pascal Interface to the Macintosh Libraries
  7.  
  8.         Copyright Apple Computer, Inc.    1985-1990
  9.         All rights reserved
  10. }
  11.  
  12.  
  13. {$IFC UNDEFINED UsingIncludes}
  14. {$SETC UsingIncludes := 0}
  15. {$ENDC}
  16.  
  17.  
  18.     UNIT Serial;
  19.     INTERFACE USES    Types;
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33. CONST
  34. baud300 = 380;
  35. baud600 = 189;
  36. baud1200 = 94;
  37. baud1800 = 62;
  38. baud2400 = 46;
  39. baud3600 = 30;
  40. baud4800 = 22;
  41. baud7200 = 14;
  42. baud9600 = 10;
  43. baud19200 = 4;
  44. baud57600 = 0;
  45. stop10 = 16384;
  46. stop15 = -32768;
  47. stop20 = -16384;
  48. noParity = 0;
  49. oddParity = 4096;
  50. evenParity = 12288;
  51. data5 = 0;
  52. data6 = 2048;
  53. data7 = 1024;
  54. data8 = 3072;
  55. ctsEvent = 32;
  56. breakEvent = 128;
  57. xOffWasSent = 128;
  58. dtrNegated = 64;
  59. ainRefNum = -6;     {serial port A input}
  60. aoutRefNum = -7;    {serial port A output}
  61. binRefNum = -8;     {serial port B input}
  62. boutRefNum = -9;    {serial port B output}
  63.  
  64. TYPE
  65. SPortSel = (sPortA,sPortB);
  66.  
  67.  
  68. SerShk = PACKED RECORD
  69.     fXOn: Byte;     {XOn flow control enabled flag}
  70.     fCTS: Byte;     {CTS flow control enabled flag}
  71.     xOn: CHAR;      {XOn character}
  72.     xOff: CHAR;     {XOff character}
  73.     errs: Byte;     {errors mask bits}
  74.     evts: Byte;     {event enable mask bits}
  75.     fInX: Byte;     {Input flow control enabled flag}
  76.     fDTR: Byte;     {DTR input flow control flag}
  77.     END;
  78.  
  79. SerStaRec = PACKED RECORD
  80.     cumErrs: Byte;
  81.     xOffSent: Byte;
  82.     rdPend: Byte;
  83.     wrPend: Byte;
  84.     ctsHold: Byte;
  85.     xOffHold: Byte;
  86.     END;
  87.  
  88.  
  89. FUNCTION SerReset(refNum: INTEGER;serConfig: INTEGER): OSErr;
  90. FUNCTION SerSetBuf(refNum: INTEGER;serBPtr: Ptr;serBLen: INTEGER): OSErr;
  91. FUNCTION SerHShake(refNum: INTEGER;flags: SerShk): OSErr;
  92. FUNCTION SerSetBrk(refNum: INTEGER): OSErr;
  93. FUNCTION SerClrBrk(refNum: INTEGER): OSErr;
  94. FUNCTION SerGetBuf(refNum: INTEGER;VAR count: LONGINT): OSErr;
  95. FUNCTION SerStatus(refNum: INTEGER;VAR serSta: SerStaRec): OSErr;
  96.  
  97.  
  98.     { UsingSerial }
  99.  
  100.  
  101.     IMPLEMENTATION
  102. END.
  103.  
  104.  
  105.